unit Checkers.Background;

interface

uses
  GLHUDObjects;

type
  TBackground = class(TGLHUDSprite)
  public
    procedure ViewerSizeChanged(const ANewWidth, ANewHeight: Integer);
  end;

implementation

{ TBackground }

procedure TBackground.ViewerSizeChanged(const ANewWidth, ANewHeight: Integer);
begin
  Width := ANewWidth;
  Height := ANewHeight;
  Position.X := Width / 2;
  Position.Y := Height / 2;
end;

end.
